home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 24 / PC Gamer IT CD 24 2-2.iso / WORDPRO / ivmacro / IVW32.EXE / 0 / RCDATA / TFRMMAIN / TFRMMAIN.txt
Text File  |  1997-06-12  |  12KB  |  397 lines
  1. object frmMain: TfrmMain
  2.   Left = 307
  3.   Top = 106
  4.   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  5.   AutoScroll = False
  6.   Caption = 'InVircible / Win32'
  7.   ClientHeight = 395
  8.   ClientWidth = 353
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = mnuMain
  14.   Position = poScreenCenter
  15.   OnActivate = FormShow
  16.   OnCloseQuery = FormCloseQuery
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   OnResize = FormResize
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object cbxDirectory: TComboBox
  23.     Left = 104
  24.     Top = 26
  25.     Width = 209
  26.     Height = 21
  27.     Hint = 'Directory to start from'
  28.     ItemHeight = 13
  29.     TabOrder = 2
  30.     OnExit = cbxDirectoryExit
  31.   end
  32.   object grpStatus: TGroupBox
  33.     Left = 8
  34.     Top = 56
  35.     Width = 337
  36.     Height = 57
  37.     Caption = 'Status'
  38.     TabOrder = 3
  39.     object lblCurDir: TLabel
  40.       Left = 32
  41.       Top = 16
  42.       Width = 297
  43.       Height = 13
  44.       AutoSize = False
  45.       Caption = 'lblCurDir'
  46.       Font.Color = clBlack
  47.       Font.Height = -12
  48.       Font.Name = 'MS Sans Serif'
  49.       Font.Style = []
  50.       ParentFont = False
  51.     end
  52.     object lblCurFile: TLabel
  53.       Left = 32
  54.       Top = 32
  55.       Width = 297
  56.       Height = 13
  57.       AutoSize = False
  58.       Caption = 'lblCurFile'
  59.       Font.Color = clBlack
  60.       Font.Height = -12
  61.       Font.Name = 'MS Sans Serif'
  62.       Font.Style = []
  63.       ParentFont = False
  64.     end
  65.     object lblDirLbl: TLabel
  66.       Left = 8
  67.       Top = 16
  68.       Width = 19
  69.       Height = 13
  70.       Caption = 'Dir.:'
  71.     end
  72.     object lblFileLbl: TLabel
  73.       Left = 8
  74.       Top = 32
  75.       Width = 20
  76.       Height = 13
  77.       Caption = 'File:'
  78.     end
  79.   end
  80.   object grpReport: TGroupBox
  81.     Left = 8
  82.     Top = 120
  83.     Width = 337
  84.     Height = 201
  85.     Caption = 'Report'
  86.     TabOrder = 4
  87.     object stgFiles: TStringGrid
  88.       Left = 16
  89.       Top = 24
  90.       Width = 305
  91.       Height = 161
  92.       Hint = 'Double/right click selected file for post-processing'
  93.       ColCount = 3
  94.       DefaultColWidth = 90
  95.       DefaultRowHeight = 15
  96.       FixedCols = 0
  97.       RowCount = 2
  98.       GridLineWidth = 0
  99.       Options = [goFixedVertLine, goFixedHorzLine, goRowSelect]
  100.       PopupMenu = mnuReport
  101.       ScrollBars = ssVertical
  102.       TabOrder = 0
  103.       OnDblClick = DeactivateClick
  104.       OnMouseUp = GridMouseUp
  105.       OnSelectCell = stgFilesSelectCell
  106.     end
  107.   end
  108.   object radAllLocal: TRadioButton
  109.     Left = 8
  110.     Top = 6
  111.     Width = 121
  112.     Height = 17
  113.     Hint = 'Scan all local hard drives'
  114.     Caption = 'All &Local Hard Drives'
  115.     Checked = True
  116.     TabOrder = 0
  117.     TabStop = True
  118.     OnClick = radAllLocalClick
  119.   end
  120.   object radDirectory: TRadioButton
  121.     Left = 8
  122.     Top = 32
  123.     Width = 89
  124.     Height = 17
  125.     Hint = 'Start scanning from directory'
  126.     Caption = 'From &Directory:'
  127.     TabOrder = 1
  128.     OnClick = radAllLocalClick
  129.   end
  130.   object btnStart: TBitBtn
  131.     Left = 8
  132.     Top = 336
  133.     Width = 75
  134.     Height = 25
  135.     Hint = 'Start scanning'
  136.     Caption = '&Start'
  137.     Default = True
  138.     TabOrder = 5
  139.     OnClick = btnStartStopClick
  140.     Glyph.Data = {
  141.       76010000424D7601000000000000760000002800000020000000100000000100
  142.       04000000000000010000130B0000130B00000000000000000000000000000000
  143.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  144.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  145.       33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  146.       00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  147.       70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
  148.       70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
  149.       70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
  150.       70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
  151.       70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  152.       00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  153.     NumGlyphs = 2
  154.   end
  155.   object btnPause: TBitBtn
  156.     Left = 96
  157.     Top = 336
  158.     Width = 75
  159.     Height = 25
  160.     Hint = 'Pause scanning'
  161.     Caption = '&Pause'
  162.     Enabled = False
  163.     TabOrder = 6
  164.     OnClick = btnPauseClick
  165.     Glyph.Data = {
  166.       76010000424D7601000000000000760000002800000020000000100000000100
  167.       04000000000000010000130B0000130B00000000000000000000000000000000
  168.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  169.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  170.       33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  171.       00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  172.       70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
  173.       70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
  174.       70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
  175.       70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
  176.       70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  177.       00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  178.     NumGlyphs = 2
  179.   end
  180.   object btnOptions: TBitBtn
  181.     Left = 184
  182.     Top = 336
  183.     Width = 75
  184.     Height = 25
  185.     Hint = 'Open options dialog'
  186.     Caption = '&Options...'
  187.     TabOrder = 7
  188.     OnClick = btnOptionsClick
  189.     Glyph.Data = {
  190.       78010000424D7801000000000000760000002800000020000000100000000100
  191.       04000000000000000000120B0000120B00000000000000000000000000000000
  192.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  193.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
  194.       1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
  195.       1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
  196.       193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
  197.       11155557F755F777777555000755033305555577755F75F77F55555555503335
  198.       0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
  199.       05555757F75F75557F5505000333555505557F777FF755557F55000000355557
  200.       07557777777F55557F5555000005555707555577777FF5557F55553000075557
  201.       0755557F7777FFF57555553350000055555555775777775555550000}
  202.     NumGlyphs = 2
  203.   end
  204.   object btnHelp: TBitBtn
  205.     Left = 272
  206.     Top = 336
  207.     Width = 75
  208.     Height = 25
  209.     Hint = 'Help me!'
  210.     Caption = 'Help...'
  211.     TabOrder = 8
  212.     OnClick = btnHelpClick
  213.     Glyph.Data = {
  214.       78010000424D7801000000000000760000002800000020000000100000000100
  215.       04000000000000000000120B0000120B00000000000000000000000000000000
  216.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  217.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  218.       3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
  219.       33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
  220.       FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
  221.       FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
  222.       FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
  223.       FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
  224.       FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
  225.       3333333773FFFF77333333333FBFBF33333333333777773333330000}
  226.     NumGlyphs = 2
  227.   end
  228.   object btnStop: TBitBtn
  229.     Left = 16
  230.     Top = 328
  231.     Width = 75
  232.     Height = 25
  233.     Hint = 'Stop scanning'
  234.     Caption = '&Stop'
  235.     TabOrder = 9
  236.     Visible = False
  237.     OnClick = btnStartStopClick
  238.     Glyph.Data = {
  239.       76010000424D7601000000000000760000002800000020000000100000000100
  240.       04000000000000010000130B0000130B00000000000000000000000000000000
  241.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  242.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  243.       33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  244.       00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  245.       70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
  246.       70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
  247.       70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
  248.       70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
  249.       70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  250.       00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  251.     NumGlyphs = 2
  252.   end
  253.   object barMain: TStatusBar
  254.     Left = 0
  255.     Top = 376
  256.     Width = 353
  257.     Height = 19
  258.     Panels = <>
  259.     SimplePanel = True
  260.   end
  261.   object btnDirectory: TBitBtn
  262.     Left = 320
  263.     Top = 26
  264.     Width = 24
  265.     Height = 21
  266.     Hint = 'Browse for directory'
  267.     TabOrder = 11
  268.     OnClick = btnDirectoryClick
  269.     Glyph.Data = {
  270.       78010000424D7801000000000000760000002800000020000000100000000100
  271.       04000000000000000000120B0000120B00000000000000000000000000000000
  272.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  273.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  274.       55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
  275.       B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
  276.       B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
  277.       0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
  278.       55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
  279.       55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
  280.       55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
  281.       5555575FFF7555555555570000755555555555777755555555550000}
  282.     NumGlyphs = 2
  283.     Spacing = 0
  284.   end
  285.   object mnuMain: TMainMenu
  286.     Left = 168
  287.     object mnuAction: TMenuItem
  288.       Caption = '&Action!'
  289.       Hint = 'Action menu'
  290.       ShortCut = 0
  291.       object mnuStartStop: TMenuItem
  292.         Caption = '&Start'
  293.         Hint = 'Start/Stop direcotry scanning'
  294.         ShortCut = 113
  295.         OnClick = btnStartStopClick
  296.       end
  297.       object mnuPause: TMenuItem
  298.         Caption = 'P&ause'
  299.         Enabled = False
  300.         Hint = 'Pause scanning'
  301.         ShortCut = 115
  302.         OnClick = btnPauseClick
  303.       end
  304.       object mnuPrint: TMenuItem
  305.         Caption = '&Print report...'
  306.         Hint = 'Print the report'
  307.         ShortCut = 16464
  308.         OnClick = mnuPrintClick
  309.       end
  310.       object mnuPrintersetup: TMenuItem
  311.         Caption = 'Printer &setup...'
  312.         Hint = 'Setup the printer'
  313.         ShortCut = 0
  314.         OnClick = mnuPrintersetupClick
  315.       end
  316.       object mnuOptions: TMenuItem
  317.         Caption = '&Options...'
  318.         Hint = 'Open options dialog'
  319.         ShortCut = 16463
  320.         OnClick = btnOptionsClick
  321.       end
  322.       object mnuExclude: TMenuItem
  323.         Caption = 'Exclude...'
  324.         ShortCut = 16453
  325.         OnClick = mnuExcludeClick
  326.       end
  327.       object mnuN1: TMenuItem
  328.         Caption = '-'
  329.         ShortCut = 0
  330.       end
  331.       object mnuExit: TMenuItem
  332.         Caption = 'E&xit'
  333.         Hint = 'Exit InVircible'
  334.         ShortCut = 0
  335.         OnClick = mnuExitClick
  336.       end
  337.     end
  338.     object mnuHelp: TMenuItem
  339.       Caption = '&Help'
  340.       Hint = 'Help menu'
  341.       ShortCut = 0
  342.       object mnuTopics: TMenuItem
  343.         Caption = '&Help Topics'
  344.         Hint = 'Show help topics'
  345.         ShortCut = 112
  346.         OnClick = btnHelpClick
  347.       end
  348.       object mnuN2: TMenuItem
  349.         Caption = '-'
  350.         ShortCut = 0
  351.       end
  352.       object mnuAbout: TMenuItem
  353.         Caption = '&About...'
  354.         Hint = 'About InVircible'
  355.         ShortCut = 0
  356.         OnClick = mnuAboutClick
  357.       end
  358.     end
  359.   end
  360.   object dlgPrint: TPrintDialog
  361.     Left = 232
  362.   end
  363.   object dlgPrinterSetup: TPrinterSetupDialog
  364.     Left = 264
  365.   end
  366.   object mnuReport: TPopupMenu
  367.     Alignment = paCenter
  368.     OnPopup = mnuReportPopup
  369.     Left = 200
  370.     object mnuPopDeactivate: TMenuItem
  371.       Caption = '&Deactivate'
  372.       Default = True
  373.       ShortCut = 0
  374.       OnClick = DeactivateClick
  375.     end
  376.     object mnuPopAdd: TMenuItem
  377.       Caption = 'Add to &Exceptions'
  378.       ShortCut = 0
  379.       object mnuPopAddDir: TMenuItem
  380.         Caption = '&Directory'
  381.         ShortCut = 0
  382.         OnClick = mnuPopAddClick
  383.       end
  384.       object mnuPopAddFilename: TMenuItem
  385.         Caption = '&Filename'
  386.         ShortCut = 0
  387.         OnClick = mnuPopAddClick
  388.       end
  389.       object mnuPopAddExtension: TMenuItem
  390.         Caption = '&Extension'
  391.         ShortCut = 0
  392.         OnClick = mnuPopAddClick
  393.       end
  394.     end
  395.   end
  396. end
  397.